Ham Radio 2000/Ham Radio 2000.iso/ham2000/logs/logbook/oblast.prg

Text File | 1990-05-04 | 6KB | 196 lines

*:*********************************************************************
*:
*:        Program: OBLAST.PRG
*:
*:         System: PC-HAM Logbook
*:         Author: Joe Kasser G3ZCZ
*:      Copyright (c) 1990, Joe Kasser
*:  Last modified: 05/04/90     12:16
*:
*:      Called by: LOGAWARD.PRG
*:
*:          Calls: LOGCHNGE.PRG
*:               : OBLASTENT.PRG
*:
*:           Uses: OBLAST.DBF
*:               : &OBLAST.DBF
*:
*:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
*:*********************************************************************
STORE 192 TO oblastm

DO WHILE task <> '*'
   CLEAR
   SET COLOR TO W+/R,W+/RB,BG+
   @ 5,11 SAY  'G3ZCZ OBLAST AWARD PACKAGE VERSION 1.7'
   SET COLOR TO GR+/B,W+/RB,BG+
   @ 7,1 SAY  'Default OBLAST database is'
   SET COLOR TO W+/R,W+/RB,BG+
   @ 7,30 SAY oblast
   SET COLOR TO GR+/B,W+/RB,BG+
   @ 8,1 SAY 'Default LOG database is'
   SET COLOR TO W+/R,W+/RB,BG+
   @ 8,30 SAY TRIM(logbook)
   SET COLOR TO GR+/B,W+/RB,BG+

   @ 10,1 SAY 'UPDATE OBLAST RECORDS                         U'
   @ 11,1 SAY 'CREATE A NEW OBLAST DATABASE                  C'
   @ 12,1 SAY 'PRINT OBLAST RECORDS                          P'
   @ 20,1 SAY 'QUIT THIS MENU                                *'
   @ 13,1 SAY 'CHANGE OBLAST DATABASE                        D'
   @ 14,1 SAY 'CHANGE LOGBOOK                                L'
   @ 15,1 SAY 'DISPLAY FILES ON DISK DRIVE                   F'
   @ 22,1 SAY 'QRU'

   @ 22,5 GET task
   READ

   DO CASE

   CASE task ='F'
      CLEAR
      ACCEPT 'WHICH DRIVE ? ' TO diskdrive
      diskdrive  = SUBSTR(diskdrive,1,1)
      STORE diskdrive + ':' TO diskdrive
      DISPLAY Files ON &diskdrive
      RELEASE diskdrive
      WAIT

   CASE task = 'L'
      DO logchnge

   CASE task = 'C'
      STORE 'OBLAST' TO boblast
      IF FILE (boblast + '.DBF')
         USE oblast
         ACCEPT 'What is the name of the new OBLAST file ? ' TO oblast
         IF FILE (oblast + '.DBF')
            ? 'ERROR, OBLAST FILE ',oblast,' EXISTS ON DEFAULT DRIVE'
            WAIT
         ELSE
            COPY STRUCTURE TO &oblast
            USE &oblast
            STORE '          ' TO BLANK
            STORE 1 TO iteration
            ? 'CREATING OBLAST FILE, please wait a few moments'
            DO WHILE iteration < oblastm
               APPEND BLANK
               STORE iteration + 1 TO iteration
            ENDDO
            RELEASE BLANK,iteration
            USE
         ENDIF
      ELSE
         ? 'ERROR BLANK OBLAST FILE IS NOT ON DEFAULT DRIVE'
         WAIT
      ENDIF
      RELEASE boblast

   CASE task = 'D'
      @ 22,1 SAY "Which OBLAST file "
      @ 22,25 GET oblast
      READ
      IF FILE (oblast + '.DBF')
      ELSE
         ? 'ERROR OBLAST FILE IS NOT ON DEFAULT DRIVE'
         WAIT
      ENDIF

   CASE task = 'U'
      IF logbook = '      '
         @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
      ELSE
         IF oblast = 'OBLAST'
            ? 'ERROR YOU CANNOT USE DEFAULT NAME, create a new one'
            WAIT
         ELSE
            IF FILE (oblast + '.DBF')
               DO oblastent
            ELSE
               ? 'ERROR OBLAST FILE IS NOT ON DEFAULT DRIVE'
               WAIT
            ENDIF
         ENDIF
      ENDIF

   CASE task = 'P'
      IF FILE (oblast + '.DBF')
         CLEAR
         STORE ' ' TO choice
         @ 5,1 SAY ' '
         ACCEPT 'Whole thing, worked/QSL-d, or QSL-d (T,W,Q) ? ' TO choice
         @ 10,1 SAY ' '
         STORE ' ' TO df
         ACCEPT 'DO you want hard copy (Y/N) ? ' TO df
         IF df = 'Y'
            SET PRINT ON
         ENDIF

         STORE 99 TO linecount
         STORE  1 TO pagecount
         STORE  0 TO qsled
         STORE  0 TO worked

         USE  &oblast
         DO WHILE .not.EOF()
            IF linecount > 60
               IF df = 'Y'
                  EJECT
               ENDIF
               ? 'OBLAST  PRINTOUT',callsign,' PAGE',pagecount
               IF choice = 'Q'
                  ?? ' QSL STATUS'
               ENDIF
               STORE pagecount + 1 TO pagecount
               ?
               ? '              CALL       DATE  TIME BND MODE STATUS'
               ? '---------------------------------------------------'
               STORE  5 TO linecount
            ENDIF

            IF choice <> 'T' .and. dstate = ' '
               *
            ELSE
               IF dstate = ' ' .and. choice = 'Q'
                  *
               ELSE
                  ? RECNO(),dcall,ddate,dtime,dband,dmode
                  STORE linecount + 1 TO linecount
               ENDIF
            ENDIF
            IF dstate = 'R'
               IF choice = 'Q'
               ELSE
                  ?? dstate
               ENDIF
               STORE qsled + 1 TO qsled
               STORE worked + 1 TO worked
            ENDIF
            IF dstate = '-'
               STORE worked + 1 TO worked
            ENDIF
            SKIP
         ENDDO
         ?
         ?
         ? worked,' WORKED     ',qsled,'QSL-D'
         ?
         IF df = 'Y'
            EJECT
            SET PRINT OFF
         ENDIF
         WAIT
         RELEASE choice,df,linecount,pagecount,worked,qsled
         USE
      ELSE
         ? 'ERROR OBLAST FILE IS NOT ON DEFAULT DRIVE'
         WAIT
      ENDIF
   ENDCASE
ENDDO
STORE ' ' TO task
RELEASE oblastm
RETURN
* 1.5 use of oblast.dbf locked out.
*: EOF: OBLAST.PRG